home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / tools / czesc_1 / bootute_2 / install < prev    next >
Text File  |  1995-05-25  |  2KB  |  120 lines
  1. ; This is an Installer script that installs BootUte 2.3.
  2. ;
  3. ; Script written by Paul Toyne.
  4. ;
  5. ; ©1995 TLS Software.
  6.  
  7. (set @default-dest "")
  8. (set @app-name "BootUte")
  9. (complete 0)
  10.  
  11. (if (< (/ (getversion) 65536) 37)
  12. (
  13.     (exit "Sorry BootUte only works on Kickstart 2.0 or above\n"
  14.           "I suggest you upgrade immediately")
  15. ))
  16.  
  17. (set update
  18.     (askchoice
  19.         (prompt "Do you wish to update an older version of BootUte?")
  20.         (help @askchoice-help)
  21.         (choices "Yes" "No")
  22.         (default 1)
  23.     )
  24. )
  25.  
  26. (complete 10)
  27.  
  28. (if (= update 0)
  29. (
  30.     (set bu_name
  31.         (askfile
  32.             (prompt "Please select your old BootUte executable")
  33.             (help @askfile-help)
  34.             (default "")
  35.         )
  36.     )
  37.  
  38.     (complete 30)
  39.  
  40.     (working "Deleting your previous version of BootUte")
  41.  
  42.     (if (exists bu_name)
  43.     (
  44.         (delete bu_name)
  45.         (delete (cat bu_name ".info"))
  46.     ))
  47.  
  48.     (if (exists "ENV:BootUte" (noreq))
  49.     (
  50.         (delete "ENV:BootUte")
  51.     ))
  52.  
  53.     (if (exists "ENVARC:BootUte" (noreq))
  54.     (
  55.         (delete "ENVARC:BootUte")
  56.     ))
  57.  
  58. ))
  59.  
  60. (complete 50)
  61.  
  62. (set tls_dir
  63.     (askdir
  64.         (prompt "Please select a location to install the BootUte directory")
  65.         (help @askfile-help)
  66.         (default "Work:")
  67.     )
  68. )
  69.  
  70. (if (NOT (exists (tackon tls_dir "BootUte")))
  71. (
  72.     (makedir (tackon tls_dir "BootUte")
  73.         (infos)
  74.     )
  75. ))
  76.  
  77. (complete 60)
  78.  
  79. (copyfiles
  80.     (prompt "Copying BootUte's files")
  81.     (source "")
  82.     (dest (tackon tls_dir "BootUte"))
  83.     (choices "BootUte_2")
  84.     (infos)
  85. )
  86.  
  87. (copyfiles
  88.     (prompt "Copying BootUte's files")
  89.     (source "")
  90.     (dest (tackon tls_dir "BootUte/Docs"))
  91.     (choices    "Docs/BootUte_2.guide"
  92.                 "Docs/BootUte_2.doc"
  93.                 "Docs/Register_BU.doc")
  94.     (infos)
  95. )
  96.  
  97. (set @default-dest (tackon tls_dir "BootUte"))
  98.  
  99. (if (NOT (exists "ENV:TLS"))
  100. (
  101.     (makedir "ENV:TLS")
  102. ))
  103.  
  104. (if (NOT (exists "ENV:TLS/BootUte"))
  105. (
  106.     (makedir "ENV:TLS/BootUte")
  107. ))
  108.  
  109. (if (NOT (exists "ENVARC:TLS"))
  110. (
  111.     (makedir "ENVARC:TLS")
  112. ))
  113.  
  114. (if (NOT (exists "ENVARC:TLS/BootUte"))
  115. (
  116.     (makedir "ENV:TLS/BootUte")
  117. ))
  118.  
  119. (complete 100)
  120.